home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilrexx / zpscrpts.rdm < prev   
Text File  |  1997-01-18  |  4KB  |  151 lines
  1. Short:    Some ARexx and AmigaDOS scripts for use with Zip Disks
  2. Author:   deery@mast.queensu.ca
  3. Uploader: deery@mast.queensu.ca
  4. Type:     util/rexx
  5. Requires: ZipTool12.lha
  6.  
  7.  
  8.  
  9.                ARexx and AmigaDOS Scripts for Zip Disks
  10.  
  11.  
  12. I recently bought an Epson Zip drive, and discovered that my SCSI
  13. controller (a Dataflyer 4000SX) will not automatically recognize the
  14. drive.  I had to create a mountlist for it.  This means (among other
  15. things) that disk changes will not be automatically recognized.  The
  16. combination of scripts contained in this archive was my solution to
  17. the problem.
  18.  
  19.  
  20. How it works (a brief description):
  21.  
  22. The ARexx script zip-change.rexx continuously checks the drive to see
  23. if the system thinks that no disk is in the drive.  If this is the
  24. case, or if the disk is listed as being a non-dos disk, then
  25. diskchange is called.  The drive is checked again, and if there is now
  26. a disk listed in the drive then a startup script on the drive is
  27. called.
  28.  
  29.  
  30. What each part actually does:
  31.  
  32. zipch:
  33.       This script just starts zip-change.rexx.
  34.  
  35. zip-change.rexx:
  36.       This script is the main component of the system.  It checks
  37.       the drive until a disk is inserted, and then executes the file
  38.       s:zip-start.  The script defaults to a 10 second wait between
  39.       checks, but this is easily changed.
  40.       
  41. zip-start:
  42.       This script merely checks to see if zip:setup/startup exists,
  43.       and if so, then it executes it.
  44.       
  45. setup/startup:
  46.       This script sets up the current zip disk by adding any
  47.       assigns, paths, etc.
  48.  
  49. setup/zip-path:
  50.       This script gets called by shell-startup to add the correct
  51.       paths for the current zip disk.
  52.       
  53. eject:
  54.       This script calls zip:setup/path-remove, unmounts the current
  55.       disk, and finally uses ziptool to eject it.
  56.       
  57. setup/path-remove:
  58.       This script removes the assigns and paths set up by
  59.       setup/startup.
  60.       
  61. zip-startup.rexx:
  62.       This scripts should be called in the user-startup file in case
  63.       a disk is already in the drive when the system is booted.  It
  64.       merely checks to see if a disk is there, and if so it calls
  65.       zip-start.
  66.       
  67.  
  68. Requirements:
  69.  
  70. Ziptool V1.2 by Oliver Hitz.  Available on Aminet.
  71.  
  72.  
  73. Installation:
  74.  
  75. copy zip-change.rexx s:
  76. copy zip-start s:
  77. copy eject s:
  78. copy zip-startup.rexx s:
  79. copy zipch s:
  80.  
  81. add the following lines to s:user-startup
  82.  
  83. rx s:zip-startup.rexx
  84. run >nil: s:zipch
  85.  
  86.  
  87. add the following lines to s:shell-startup
  88.  
  89. if exists t:zip-path
  90.    execute t:zip-path
  91. endif
  92.  
  93. On each zip disk, create a setup directory.
  94.  
  95. copy path-remove zip:setup
  96. copy startup zip:setup
  97. copy zip-path zip:setup
  98.  
  99.  
  100. (The fzip script will format a zip disk with the name Empty, and copy
  101. default versions of the above scripts into a directory name setup on the
  102. zip disk.)
  103.  
  104. Edit each of the files in zip:setup to correspond to the needed
  105. environment for the disk.
  106.  
  107. In zip-path add any paths that are needed.
  108. In startup add any assigns, and other commands that are needed to
  109. setup the software on that disk.
  110. In path-remove add the commands necessary to remove the paths, and
  111. assigns, as well as any other shutdown things that are needed.
  112.  
  113. (See the appropriate files for more info.)
  114.  
  115.  
  116.  
  117. Customization:
  118.  
  119. The files currently assume that the zip drive is referred to by zip:
  120. If zip0: or something else is used, it will be necessary to modify the
  121. scripts.
  122.  
  123.  
  124. Author Contact Info:
  125.  
  126. Name:       Todd Deery
  127. Email:      deery@mast.queensu.ca
  128. Address:    5A Scott St.
  129.          Kingston, ON
  130.          CANADA
  131.          K7L 1L3
  132.  
  133.  
  134. Disclaimer:
  135.  
  136. This works for me, and has been for the last week or so.  I make no
  137. guarantees that it will work for you.  However, if you find a problem
  138. please let me know, and I'll try to work on it.
  139.  
  140.  
  141. The Future:
  142.  
  143. I don't know.  Any suggestions are welcome.
  144.  
  145.  
  146. Registration:
  147.  
  148. None.  However, I would appreciate an email or something, just so I
  149. know that some people are using it.  Also, money, computers, etc.
  150. would not be turned away. :}
  151.